RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F |LE**1D**TPROBE 
TTTTTTTTT1 PPPPPPPP RRRRRRRR 000000 BBBBBBBB EEEEEEEEEE ° 
TTTTTTTTTT PPPPPPPP RRRRRRRR 000000 BBBBBBBB EEEEEEEEEE ° 
TT PP PP RR RR 00 00 68 BB EE ° 
TT PP PP RR RR 00 00 6B BB EE ° 
TT PP PP RR RR 00 00 8B BB EE ° 
TT PP PP RR RR 00 00 6B EE ° 
TT PPPPPPPP RRRRRRRR 00 00 88888888 EEEEEEEE ° 
TT PPPPPPPP RRRRRRRR 00 00 88BBBBBB EEEEEEEE ° 
TT PP RR RR 00 00 6B BB EE ° 
TT PP RR RR 00 00 BB BB EE ° 
TT PP RR RR 00 00 8B BB EE eos . 
TT PP RR RR 00 00 6B BB EE ooce ‘ 
TT PP RR RR 000000 BBBBBBBB EEEEEEEEEE eece ‘ 
TT PP RR RR 000000 BBBBBBBB EEEEEEEEEE cece ‘ 
LL III SSSSSSSS ; 
LL HII] SSSSSSSS ‘ 
LL I] ss ° 
LL II ss ‘ 
LL I] S$ ‘ 
LL II ss ‘ 
LL I] SSSSSS ‘ 
LL II SSSSSS ‘ 
LL II ss ‘ 
LL I] $s . 
LL II Ss : 
LL I] ss : 
LiLLLLLLLLL III] SSSSSSSS : 
LLLLLLLLLL III111 SSSSSSSS : 
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ersten 138 Fh:38:38 | HAM Obes Tze ue Or78 Page 
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poy 001 Q MODULE TPROBE ( ; 
; é 9 ; IDENT = 'V04-000' : 
; P XBLISS32C ; 
: ¢ P . ¢ ADDRESSING_MODE (EXTERNAL =LONG, RELATIVE ,NONEXTERNAL=LONG_ RELATIVE) | ‘ 
te : : 
; 8B 008 J 
: 9 Hit 1 PETTIIITILILILI LILLE LLL LIL TTL titi tTtt Py 
; Bory 1 Ie * : 
; 11 11 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ‘ 
; ig Og 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; iz biz : ~ ALL RIGHTS RESERVED. * ‘ 
: . ® . 
: 15 0015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
: 16 Bpi$ 1 !* ONLY IN ACCORDANCE WITH —E TERM F SUCH LICENSE AND WITH THE * ‘ 
H 17 01 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY . | ‘ 
: 19 0019 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY « ‘ 
; so + ? : ‘* TRANSFERRED. . : 
° :* ° 
3 $§ 00 § 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
; 2 00 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ° 
H Se 83 $ : 7 CORPORATION. * : 
° :* ® Py 
; 26 0036 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ‘ 
; 27 BOs 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * . 
3 28 28 1 ie * : 
3 $3 it 94 1 Ie + : 
: HY Bes ! aac inca anata alliance alee : 
: 3¢ gos 1 ise 
; a 0033 1} FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : 
; §s 0035 1 | ABSTRACT: Checks to see if a keyword matches an entry. 

; 36 site 7} 

3; «7 0037 1 | 

; 3 st : : ENVIRONMENT: Transportable 

: 40 0040 1 | AUTHOR: R.W.Friday | CREATION DATE: May, 1978 

> 41 0041 1! 


TPR 18-Sep-1984 94:38:33 AX=11 Bliss-32 V4.0-74 


v04- Revision History -Sep-1 RUNOFF .SRCJTPROBE.BLI; 
s 635 42 1 ZSBTTL ‘Revision History’ 

s 66 45 1! 

$ 45 44 1 ! MODIFIED BY: 

3 re 45 1! 

Be pos 1! 004 KAD00004 Keith Dawson 17-Mar-1983 

; re et ! Fixed module name (was TPROB, now TPROBE). 

: $0 049 1 | 003 KAD00003 Keith Dawson 07-Mar-1983 

;. 050 1! Global edit of all modules. Updated module names, idents, 
; 35 ae ! copyright dates. Changed require files to BLISS library. 
3; «54 0053 1 i-- 
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Module Level Declarations -Sep- RUNOFF .SRCJTPROBE.BLI; (3) 


OWN STORAGE: 


3 } ZSBTTL ‘Module Level Declarations’ 

1! 
$ 1 ! TABLE OF CONTENTS: 

$85 1 i 

060 1 | INCLUDE FILES: 
Seo 
boe8 1 LIBRARY ‘NXPORT: pepet ! XPORT Librar 

135 : REQUIRE ‘REQ:RNODEF' ! RUNOFF ver tant definitions 
199 i ST DRRRY THEO pert IB’ ! DSRPLUS BLISS Lib 

: ; ' r 

0198 1 HELse set 
Hh 1 * aru *REQ:DSRLIB'; ! DSR BLISS Library 

00 1 ZFI 
0502 1! 
6 6 1 | EQUATED SYMBOLS: 
85 
er 1 LITERAL 
65 1 ch_equal = 0, 
0 1 ch_lss = -1, 
02 1 a gtr = 1; 
0 1 
a 
0 1 
02 1 


Wr—OoO0oOn 


WR 0 CONOAUES WN “OC OONOAUE WN“ OVDONOWUEWR— 


uw 


Se Be Se Se Be Be Se Se Se Se Se Be Be Fe Se Fe Se Ge Ge Ge Ge Fe Se Se Ge Ge Ge Se Ge Ge Se Ge Se Ge Se Se Se Se Se Se Ge Se Se Se Se Fe Se See ee Se See Se Se esas 


ee ee ee ee el ce ee el ec ee ce ce cee ce ee ee ee ee ee ee ee ee ce ee ce ee ee cee ed ced ee ee ee 


ee et ee eh ba) 
Wn OO 


ates Vine “] 


Be 93:08:28 URUnorFesReSTPROBE “OL 71 Page i$ 


Module Level Declarations 
GLOBAL ROUTINE tprobe (KEY, SIZE, ITEM) = 


lee 
! FUNCTIONAL DESCRIPTION: 
Checks to see if ‘key’ is described by ‘item’. If not, returns a 
condition code indicating how the search is to proceed. This 
routine is called only from FIND. 
FORMAL PARAMETERS: 
"Key’ is the keyword to be checked. ‘Size’ is the Length 
of the keyword. ‘Item’ 
which ‘key’ is checked. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
| 
| 


ROUTINE VALUE: 
: COMPLETION CODES: 


See TPROB.REQ for the completion codes. 
SIDE EFFECTS: None 


is the entry in the keyword table against 


BEGIN 


P 
item : REF VECTOR; 
SELECTONE true OF 
SET 


C.size EQL .item_length (item)] : 


BEGIN 
LOCAL 


te; 
r = CHSCOMPARE (.size, .key, .size, CHSPTR (p_word (item))); 
CASE sf FROM -1 TO 1 OF 
i tes3" : RETURN found; 


DREAD Maa BEE LE EEE PWIA IInpononononononun) 2 2 Ss SS 


oon 
QS SFO SSNS Rist OS OONO NE WN ODO WOAH SO OOd MO Ur Uso DOOD OU 


SOOOSOOOCOCOSCOSOOCOCOCSOCOSCOSOCOOOOOSOSOOCSOSOOO OOOO OCOOOOCOOOOOOOOOOOOOOO 


PRIPIPIPIPOPIPININPINIMPINPINYINPINPIDININIPONPIPININPINPININIPINONPoPonofpofnofnononyd 


WIA AAI WIWIWI WWW WINN ROPONONNU NNN 


ch7Lss RETURN try_above; 
rchgtr RETURN try_below; 
END; | 
C.size GIR .item_length (item)) : 
BEGIN | 
LOCAL 
6 r 
g siz; 
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Module Level Declarations 14-$ ats hi 93:58:38 ERUNOFF SRE TPROBE .BLI; ey (63 


siz = ,item_length (item); 
r = CHSCOMPARE (.siz, .key, .siz, CHSPTR (p_word (item))); 


CASE es FROM -1 TO 1 OF 


ch_egual : 
IF _ .kwitem_abbreviation (item) 


RETURN try_below 
ELS 


ey A Ree yy eet tee a th 


> 146 71 

3; 145 te | 
2:3 § 7 

.: 9 74 

> 148 75 

> 149 6 

: 43f , 

P+ j 
ne ¢ 6 es | 
ee 0 HY 

; 154 0281 RETURN give_up; 

3; 933 8 B¢ fch.tssi : RETURN try_above; 

: 156 ch_gtr : RETURN try_below; 

, 337 0284 TES; 

; «158 8 85 

; 9 86 END; 

; 160 0287 

; «(161 0288 C.size LSS .item_length (item)] : 

<2 ¢ 0289 BEGIN 

; 0290 LOCAL 

.-¥ 0291 r; 

> «165 0 3 

3 136 0502 r = CHSCOMPARE (.size, .key, .size, CHSPTR (p_word (item))); 
: «168 0295 CASE .r FROM -1 TO 1 OF 

: 169 0296 ET 

: 170 0297 ch_ogual) : 

; Ww 0298 IF .kwitem_abbreviation (item) 

3 v6 i944 

s 17 0300 RETURN try_above 

: 176 0301 

3. i%9 O08 IF .size GEQ .kwitem_minimum_match (item) 

: 176 030 

3 177 0304 RETURN found 

; 178 0305 

; #179 0306 ’ RETURN try_above; 

: 180 t4 4 

; «(181 0308 Cch_lss] : RETURN try_above; 

: 136 0309 

; (18 0310 Cch_gtrJ : RETURN try_below; 

> «(184 0311 TES; 

; «6185 otig END; 
; 136 Baz TES 'No semicolon -- avoid compiler compalint. 
2% $318 END; 'End of TPROBE 


A ae 3 
\v04-000\ 


-PSECT SCODE$,NOWRT,2 


007¢ 00000 .ENTRY TPROBE, Save R2,R3,R4,R5,R6 ; 0214 
56 08 AC 09 02 MOVL SIZE, R6 : 0250 
4 ee MOVL ITEM; R4 : 


Module Level Declarations 


vo4=060 


w _ new ~ 
w ?) or «oo 
N N moc N 
So So ooo o 
~~ 
~ So 
Oo a 
ac ~ 
~ ~w 
~w ™~N 
~ N _ . N 
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co > ie mo w i 
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Oo ww WW —-AAA ~ wnewn -A 
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~ = cn . zmiwme 
*- wes *-* APAA ~T ™ 7- + AIA 
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Qm~wHB ee Be O ee e —  f- BGrRauNVTReaeaee Or 
m> ja ma +a 
149 YIU EV jw B44 jVeV jwe 
Qaw>>ar-3>40O QOw>>>ar3>MOo 
ZzZooZzvoModcs etwiooozvowmodcs 
VOEZErYOMEw + @QOMEFFTEr-OMEwY 
“ A cd “A 
- ~w m wr ww 
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—MOOC LO Ou —-NOOOSC tO oOu 
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OTT —OM-—NOAa wwe Te I NOM 
oO o 
oO 
Oo 
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oO Oo 
Oo w ve w we 
Oo Oo aw Oo we 
- io 
ve ew 
ive a 
vv “ 
ve - 
o on 
oO Ne Oo ur. 
4 or. 4 ow 
oO = o 
oO o 
wT w 
oO oO 
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2 

é 
0310 


» @KEY, 4(RO) 


C 

1 

3 
64 7$: 
66 


Sooooooooocooeo 
Sooooooooooo 
COOOooCoooooooo 


OovwTDOOSO <0 Ou 
WOO - AOov-- AAU 


Oo <7-0M-—-MoOr 
On MOOMOOUMe 


00 


09 AG 
5 
04 
O2 FFFFFFFF 


AO 
0018 


xc 


04 


om 4 Oo w 
oo - _ 
NM Mm Mm Al 
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161 bytes, Routine Base: S$CODE$ + 9000 


; Routine Size: 


‘End of module 


v04 Module Level Declarations 


PSECT SUMMARY 
Name Bytes 


SCODES 161 NOVEC,NOWRT, RD, 


Library Statistics 


aE eeane Symbols 
File Total Loaded 
$255$DUA2B: CSYSL1BIXPORT 32:1 590 
255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 


COMMAND QUALIFIERS 


AX-11 Bliss-32 v4.0 
RUNOFF .SRCJTPROBE. te 


Attributes 
EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


ecccecce Pages Processing 
Percent Mapped Time 
0 252 00:00.1 
0 86 00:00.3 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: TPROBE/OBJ=O0BJ$:TPROBE MSRC$: TPROBE/UPDATE=(ENHS: TPROBE ) 


ptee: 161 code + 0 data bytes 
un Time: 00:04.7 
ph Time: 00:16.2 
Lines/CPU Min 05 
Lexenes/CPU-Min: 16480 
ry Used: 60 pages 
cree ation Complete 


T CORPORATION 


AH-BT13A-SE 
PROPRIETARY 


VAX/VMS V4.0. 


0330 


